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T8058 ’ S-SEp-1984 14:49:34 Pelante.eacsorscureop.mars1 2% cl 
D000 TITLE OTSSCVTROP_RO 7 ert Rounded Double Floatin Packed 
n 4 IDENT 7120087 Fife: OFScVERDP-MAR Edits LEIS 
tithe REAAAAAEETAEKAEAAAKEAEEEAAAAARARAAAAAAAAAAARAEAEAAAEARAAEAAAEAAEARAAAAERAEAEEAEEE 
UUU 
900C COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
YOO DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 


ALL RIGHTS RESERVED. 


THIS SOFTWARE IS A gt} tte UNDER A LICENSE AND MAY BE USED AND corres 
Y IN accor DANCE WITH THE TERMS OF SUCH ats SE__AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS Sort WARE OR ANY OTHER 

COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


eaeeneeeeeeeneeneaeneneenanaananae 


000¢ i® CORPORATION. 
yOOU 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
9000 3* SOFTWARE ON EQUIPMENT WHICH iS NOT SUPPLIED BY DIGITAL. 
UU 3 
BSS : RAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAATAARAAAAAEEAAEAAEEEAEAAEEEEE 
UU 4 
ie 3 
2006 s FACILITY: LANGUAGE INDEPENDENT SUPPORT 
: ; 
D000 3 ABSTRACT: 
00¢ 3 This module contains the routine that converts double floating 
D008 ; numbers to packed with rounding. 
iti te : 
te s 
0000 8 3; VERSION: 1 
teat 3 
0000 40 ; HISTORY: 
00 ‘lt 41; 
D00C 4g 3 AUTHOR: 
0000 e7 ; Marty Jack, 14-Mar-1979 
DUUL 3 
D000 «45; MODIFIED BY: 
i! D0 4 3 
D000 47 ; 
0000 48; 
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TSSCVTRDP_RO Convert Rounded Double Floating to Packe 16-SEP-1984 00:26:41 VAX/VMS M b- ata 
at HISTORY ; Detailed Current Edit History ya ett 90:96:3) YENTE SRE TOTSCUTOOP.MAR: 1 —— 3) 


-SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 1 of OTSCVTRDP 
aH - Original. MLJ 14-Mar-1979 


Make external references explicit. RKR 17-JULY-1979 

cn enes all references to FORSCNV_OUT_E to OTSSCNVOUT 

RKR 27-SEPT- 

Cosmetic changes. RKR 18-OCT-79 

Change source name to OTSS$ and retain old entry point name. PLL 21-Jan-82 
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Lv 

ee 


; PSECT DECLARATIONS: 
~-PSECT _OTSSCODE PIC, SHR, LONG, EXE, NOWRT,- 
USR, CON, REL, LCL, RD 


EQUATED SYMBOLS: 
NONE 


BONAVUE WN $9 ODNAOUES WN $0 OONOULS WN OOONO 


0000000 000900900 09 69 09 09 09 09 09 SIN NII NII NI NION 


: OWN STORAGE: 
3 NONE 
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Tr888 DECLARATIONS . g-8 Pa} 984 90:98:51 LIBRTL.SRCJOTSCVTRDP.MAR; 1 = 3) ta 
§ -SBTTL DECLARATIONS 
g ; INCLUDE FILES: 
i SDSCDEF 
; EXTERNAL SYMBOLS: 
-DSABL GBL ; Prevent undeclared symbols from being 
3; automatically global 
eEXTRN OTSSCNVOUT ; E-format conversion 
-EXTRN LIBSSTOP : Error halt 
: ~EXTRN OTSS_FATINTERR ; Fatal internal error code 
MACROS: 
; NONE 
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~SBTTL OTSSCVTRDP_RO 


FUNCTIONAL DESCRIPTION: 

Converts a double floating number to packed with rounding. 
CALLING SEQUENCE: 

JSB OTSSCVTRDP_RO (scale.rl.v, src.rd.r, dstlen.rl.v, dst.wp.r) 

Arguments are passed in R6, R7, RB and RI. 

INPUT PARAMETERS: 

SCALE.rl.v The power of ten by which the internal 
elplics to scale the save se the’ 
SRC.rd.r the number to be converted nn ne’ 

DSTLEN.rl.v The number of digits in the destination 
IMPLICIT INPUTS: 

ALL of the trap bits in the PSL are assumed off. 

OUTPUT PARAMETERS: 

DST.wp.r The place to store the converted number 
IMPLICIT OUTPUTS: 

NONE 
FUNCTION VALUE: 

1 = SUCCESS, 0 = FAILURE 
SIDE EFFECTS: 


Destroys registers RO through R9. 


r 
m 
i 


Se Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge See Se Se Gets Sete 


a a ek ed td od td = = = 8 = = © = = SS = = = 8 = = = SS  — 2 — 3 = 2 a 


DAI UES BB BE EEE WII II II IIR POPOPOPUPUNUPURD 2 AOD OOO OOOCO 
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bd 


OTSSCVTRDP_R9:: 
COBSCVTRDP_R9:: 
SUBL2 ae SP : Allocate temp space 
MOVD (R 5, (SP) 3 Get input number 
; Make a descriptor for the temporary string. 
PUSHAB 8(SP) 3; Address = space reserved 
MOVB #OSC$K_CLASS_S.-(SP) 3; Class = static 
MOVB ep scse DTYPE_1,-(SP) ; Data type = ASCII string 
MOVW #38,-(SP) 3 Length in bytes 
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} : Call OTSSCNVOUT. 
1F D 1 USHL #31 3; Digits in fraction 
04 AE F 1 PUSHAB 4(SP) ; Output string descriptor 
10 A F 1 PUSHAB 16(SP) ; Number to convert 
00000000 ' GF Q Fe 1 CALLS @# _ 3; Call conversion routine 
ra") E ; BLBC RO,20$ 3; Should never fail 
; Convert the exponent and correct for scale factor. 
6— 02 33 AE 9 CVTSP #2,51(SP),#2, (SP) 3; Make packed exponent 
of 6 CVTPL (SP) RO 3; Make enquers exponent 
6 E1 Ab E MOVAB =31(R6)ER 3,R6 : Correct for fraction size and scale 


; Convert the fraction to packed. 
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000909090909 09 09 NINN NIN NINN NOAA AAOOAAAAOOUIUTN 


12 “ 10 AE 90 : Ove 1etse? 18(SP) ; Move sign over '’.'' 
6E iF 12 AE IF 09 CVTSP #31, 1B(SP) #31, (SP) ; Make packed fraction 
69 58 0S 6& 1F 56 FB 00 SHP R6,#31,(SPS,A#5,RB8,(R9) : Scale to destination 
04 3 (also clears RO) 
9¢ 1D 004 BVS 10$ ; Branch if overflowed 
: 06 04 INCL RO 3 Indicate success, RO = 1 
5E 8 CO 004 10$: ADDL2 #56,SP ; Delete stack temps 
05 Bae RSB 
One 3; Come here on failure of OTS$SCNVOUT. This should never happen. 
00000000'8F DD 004 20$: PUSHL #OTS$_FATINTERR ; OTS fatal error message 
00000000'GF 01 FB ie CALLS #1,G*CIBSSTOP 3; Signal and don't return 
005 : END 
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COBSCVTRDP_RO 9 RG 02 
DSCSK -CLASS. ; a 

ates DTYPE_T z E 

LIBSST eeeeeree =X 

Bt eeeevoul eeeeeere 8X 

OTSSCVT 00000000 a” 
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een es en cencoeene a 
! Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
“ s 00 690000 { 00 « 0.) NOPIC USR CON’ ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$ 000000 0°) 01 ¢ #1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
OTSSCODE 0000005A 9 oe © ded PIC USR CON’ REL LCL SHR EXE RD NOWRT NOVEC LONG 
ee 
H ,_Per formance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 1 00:00: 9.93 00:00:08 10 
pounens processing 120 BR Re! 0.34 B8 382: -07 
Synbol table sort 1 §:00500:13  90100:08:98 
e sor :00:00. :00:00. 
52 $000; 34 00:00: 3°28 
cess f table output 00:00:00.01 88:80:00: 09 
Psect synopsis output 00:00:00.01 0:00:00.01 
Cross-reference output 00: 839-00 00:00:00.00 
Assembler run totals 34 00:00:02.00 00:00:16.46 


The working set tate was 1050 pages 
8392 bytes (17 pages) of virtua memory were used to buffer the intermediate co 
There were 10 pages of symbol table space <j omy to hold 136 non-local and 3 tocol symbols. 
187 source Lines were read in Pass 1, produci  : object records in Pass 2. 
pages of virtual memory were used to define 7 macros. 


Macro Library name 
“S25SSDUAZB:(SYSLIBISTARLET.MLBs2 0 SCS . 
190 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 
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